/*  Copyright © 2009 Blake Hegerle -*- C++ -*- */

/*  This file is part of metal.
 
    Metal is free software: you can redistribute it and/or modify it
    under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.
    
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    General Public License for more details.
 
    You should have received a copy of the GNU General Public License
    along with this program.  If not, see
    <http://www.gnu.org/licenses/>.

*/

#include "metal.h"
#include "io.h"

#include "drivers/closure.h"

using namespace metal;
using namespace metal::driver;
using namespace std;

namespace {
  ident(x); ident(y);
}

template<typename I, typename T, typename... More>
void foo(I begin, I end, T t, More... more) {
  
}

template<typename T>
void foo(const T &expr, const vector<expr_ptr> &idents) {
  cout << "computing free variables of: " << *expr.impl() << endl;
  
  auto free = free_variables(expr.impl());

  auto fs = free->size(), is = idents.size();
  cout << fs << " == " << is << endl;
  assert(fs == is);

  for(auto i = idents.begin(), j = free->begin();
      i != idents.end(), j != free->end();
      ++i, ++j) {
    assert((*i)->name() == j->first);
  }
}

void closure_tests() {
  cout << "closure_tests" << endl;

  foo(eval(x, x = y + 1), { y.impl() });

  foo(lambda<int>(param(int, x)) ( y(x) ), { y.impl() } );

  foo(lambda<int>(param(int, x)) ( y(x) )(x), { x.impl(), y.impl() } );
}
